home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / basic / REDHelpFix1.lha / Red_help < prev    next >
AmigaDOS Script File  |  1980-01-01  |  479b  |  33 lines
  1. .key lib/k,cmd/k,screen/k,port/k
  2. .bra {
  3. .ket }
  4.  
  5. ;Shell script for REDHelp
  6.  
  7. set ARG1="{lib}"
  8. set ARG2="{cmd}"
  9. set ARG3="{port}"
  10. set ARG4="{screen}"
  11. set ARG5=AG{port}
  12. set ARG6=AG{port}.1
  13.  
  14. Blitz2:RedHelp/FindPort $ARG6
  15.  
  16. if "$RC" eq "2"
  17.   set ARG6="YES"
  18. else
  19.   set ARG6="NO"
  20. endif
  21.  
  22. if "$ARG1" EQ ""
  23.   set ARG1="!"
  24. endif
  25.  
  26. if "$ARG2" EQ ""
  27.   set ARG2="!"
  28. endif
  29.  
  30. SYS:REXXC/rx >NIL: "address $ARG3 HELP"
  31.  
  32. SYS:REXXC/rx >NIL: Blitz2:RedHelp/RED_HELP.rx $ARG1 $ARG2 $ARG3 $ARG4 $ARG5 $ARG6
  33.